Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/BBS/MUBBS/MUBBS112.CPT/MUBBS112/MUBBS V1.1.2.cpt/MUBBS V1.1.2/Utility Applications/Nate's Sysop 2.0/cards.xml

Text File | 1992-02-22 | 18KB | 339 lines

card_2930.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2930</id>
    <filler1>0</filler1>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2792</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3089.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>15</left>
            <top>309</top>
            <right>209</right>
            <bottom>332</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Change WHOLE Folder's TYPE</name>
        <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This takes a WHOLE FOLDER and changes any file content's TYPE !" & return into card field statusput "Folders inside this one will NOT be affected" & return after card field statusput "Path you picked   =" & appname & return after card field statusput length of appname into irepeat until i <= 0if char i of appname = ":" thenput i into xput 0 into iend ifsubtract 1 from iend repeatput "" into output 0 into zrepeat until z = xput out & char z of appname into outadd 1 to zend repeatput out & ":" into folderput "Using folder path =" & folder & return after card field statusask "Change TYPE to what?" with "TEXT"if it = "" then exit mouseupput it into changetypeanswer "Not reversable, are you sure?" with "YES" or "CANCEL"if it = "CANCEL" thenput "A BIG MESS WAS CANCLED, GOOD THING!"  & return after card field statusexit to hypercardend ifput files(folder,"",0) into tempput 1 into i-- and show file namesrepeat until line i of temp is emptyput folder & line i of temp into appnameget gettype(appname)if the number of chars of it = 4 thenput line i of temp & " TYPE = ”" &it&"” " after card field statuselseput line i of temp & " TYPE NOT AVAILABLE " after card field statusend ifsettype appname,changetypeif the result ≠ "" thenput "- NOT CHANGED!!" &return after card field statuselseget gettype(appname)if the number of chars of it = 4 thenput " Changed to ”" &it&"” "&return after card field statuselseput " TYPE STILL NOT AVAILABLE "&return after card field statusend ifend ifadd 1 to iend repeatput " -- DONE --" & return after card field statusend mouseUp</script>
    </part>
    <part>
        <id>2</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>420</left>
            <top>216</top>
            <right>510</right>
            <bottom>239</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>ABOUT</name>
        <script>on mouseUpshow card field "info"repeat until the mouse is downend repeathide card field "info"end mouseUp</script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>8</left>
            <top>28</top>
            <right>510</right>
            <bottom>212</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>status</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>15</left>
            <top>280</top>
            <right>209</right>
            <bottom>303</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Change ONE File's TYPE</name>
        <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This changes a FILE's TYPE !" & return into card field statusput "File you picked   =" & appname & return after card field statusput appname into folderask "Change TYPE to what?" with "TEXT"if it = "" then exit mouseupput it into changetypeanswer "Not reversable, are you sure?" with "YES" or "CANCEL"if it = "CANCEL" thenput "A BIG MESS WAS CANCLED, GOOD THING!"  & return after card field statusexit to hypercardend ifput folder into appnameget gettype(appname)if the number of chars of it = 4 thenput  " TYPE = ”" &it&"” " after card field statuselseput  " TYPE NOT AVAILABLE " after card field statusend ifsettype appname,changetypeif the result ≠ "" thenput "- NOT CHANGED!!" &return after card field statuselseget gettype(appname)if the number of chars of it = 4 thenput " Changed to ”" &it&"” "&return after card field statuselseput " TYPE STILL NOT AVAILABLE "&return after card field statusend ifend ifput " -- DONE --" & return after card field statusend mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>15</left>
            <top>221</top>
            <right>209</right>
            <bottom>244</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>LIST a Folder's TYPES</name>
        <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This shows all files in a folder & the types" & return into card field statusput "Folders inside this one will NOT be read" & return after card field statusput "Path you picked   =" & appname & return after card field statusput length of appname into irepeat until i <= 0if char i of appname = ":" thenput i into xput 0 into iend ifsubtract 1 from iend repeatput "" into output 0 into zrepeat until z = xput out & char z of appname into outadd 1 to zend repeatput out & ":" into folderput "Using folder path =" & folder & return after card field statusput files(folder,"",0) into tempput 1 into i-- and show file namesrepeat until line i of temp is emptyput folder & line i of temp into appnameget gettype(appname)if the number of chars of it = 4 thenput line i of temp & " TYPE = ”" &it&"” "&return after card field statuselseput line i of temp & " TYPE NOT AVAILABLE "&return after card field statusend ifadd 1 to iend repeatput " -- DONE --" & return after card field statusend mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>223</left>
            <top>309</top>
            <right>417</right>
            <bottom>332</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Try to DeMacBinify a FOLDER</name>
        <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This takes a WHOLE FOLDER and TRIES to MacDebinify every file !" & return into card field statusput "If a file is converted, it is saved with the extension .CNV" & return after card field statusput "Folders inside this one will NOT be affected" & return after card field statusput "Path you picked   =" & appname & return after card field statusput length of appname into irepeat until i <= 0if char i of appname = ":" thenput i into xput 0 into iend ifsubtract 1 from iend repeatput "" into output 0 into zrepeat until z = xput out & char z of appname into outadd 1 to zend repeatput out & ":" into folderput "Using folder path =" & folder & return after card field statusanswer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL"if it = "CANCEL" thenput "CANCLED, GOOD THING!"  & return after card field statusexit to hypercardend ifput files(folder,"",0) into tempput 1 into i-- and show file namesrepeat until line i of temp is emptyput folder & line i of temp into appnameget deMacBinify(appname,appname & ".CNV")put line i of temp & " Result = ”" &it&"” "&return after card field statusadd 1 to iend repeatput " -- DONE --" & return after card field statusend mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>222</left>
            <top>280</top>
            <right>416</right>
            <bottom>303</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>DeMacBinify ONE file</name>
        <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This TRIES to MacDebinify a file !" & return into card field statusput "If the file is converted, it is saved with the extension .CNV" & return after card field statusput "File you picked   =" & appname & return after card field statusanswer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL"if it = "CANCEL" thenput "CANCLED, GOOD THING!"  & return after card field statusexit to hypercardend ifget deMacBinify(appname,appname & ".CNV")put " Result = ”" &it&"” "&return after card field statusput " -- DONE --" & return after card field statusend mouseUp</script>
    </part>
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>220</left>
            <top>219</top>
            <right>414</right>
            <bottom>242</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>MacBinify ONE file</name>
        <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This TRIES to MacBinify a file !" & return into card field statusput "If the file is converted, it is saved with the extension .CNV" & return after card field statusput "File you picked   =" & appname & return after card field statusanswer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL"if it = "CANCEL" thenput "CANCLED, GOOD THING!"  & return after card field statusexit to hypercardend ifmacBinify appname,appname & ".CNV"put " Result = ”" &it&"” "&return after card field statusput " -- DONE --" & return after card field statusend mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>221</left>
            <top>249</top>
            <right>415</right>
            <bottom>272</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Try to MacBinify a FOLDER</name>
        <script>on mouseUpput getpathname() into appnameif appname = "" then exit to hypercardput "This takes a WHOLE FOLDER and TRIES to MacBinify every file !" & return into card field statusput "If a file is converted, it is saved with the extension .CNV" & return after card field statusput "Folders inside this one will NOT be affected" & return after card field statusput "Path you picked   =" & appname & return after card field statusput length of appname into irepeat until i <= 0if char i of appname = ":" thenput i into xput 0 into iend ifsubtract 1 from iend repeatput "" into output 0 into zrepeat until z = xput out & char z of appname into outadd 1 to zend repeatput out & ":" into folderput "Using folder path =" & folder & return after card field statusanswer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL"if it = "CANCEL" thenput "CANCLED, GOOD THING!"  & return after card field statusexit to hypercardend ifput files(folder,"",0) into tempput 1 into i-- and show file namesrepeat until line i of temp is emptyput folder & line i of temp into appnamemacBinify appname,appname & ".CNV"put line i of temp & " Result = ”" &it&"” "&return after card field statusadd 1 to iend repeatput " -- DONE --" & return after card field statusend mouseUp</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>57</left>
            <top>52</top>
            <right>469</right>
            <bottom>323</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>info</name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text>This is a Hypercard HACK !                                                      Nate's Sysop V2.0Use this at your own risk, and as always:USE IT ON A COPY OF YOUR DATA !! (BACK UP YOUR DATA TOO !!)This simply "MacBinifies" or "DeMacBinifies" a file or a whole folder of files.Use this to prepare files for "Upload Maniac", uploading massive amounts of files to MUBBS !   Have fun!READ THE "READ ME" FILE THAT CAME WITH THIS STACK !What do you want for nothin' ?                                             (Click anywhere to return)</text>
    </content>
    <content>
        <layer>card</layer>
        <id>4</id>
        <text>This TRIES to MacBinify a file !If the file is converted, it is saved with the extension .CNVFile you picked   =300 MB:1 CD ROM PLAYING:BOX 3 ALL DIRs.SEA Result = ”YES”  -- DONE --</text>
    </content>
    <name></name>
    <script></script>
</card>